home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / prolog / diffs / diff_1_8.10 < prev    next >
Encoding:
Text File  |  1994-03-22  |  16.1 KB  |  562 lines
  1. diff -c -r +new-file pl/STAMP pl/STAMP
  2. *** pl/STAMP    Wed Mar  2 18:10:32 1994
  3. --- pl/STAMP    Tue Mar 22 12:05:08 1994
  4. ***************
  5. *** 1 ****
  6. ! Wed Mar 2 18:08:00 MET 1994
  7. --- 1 ----
  8. ! Tue Mar 22 12:03:06 MET 1994
  9. diff -c -r +new-file pl/VERSION pl/VERSION
  10. *** pl/VERSION    Wed Mar  2 15:32:01 1994
  11. --- pl/VERSION    Mon Mar 21 17:45:45 1994
  12. ***************
  13. *** 1 ****
  14. ! 1.8.9
  15. --- 1 ----
  16. ! 1.8.10
  17. diff -c -r +new-file pl/library/quintus.pl pl/library/quintus.pl
  18. *** pl/library/quintus.pl    Wed Mar  2 15:32:30 1994
  19. --- pl/library/quintus.pl    Mon Mar 21 17:46:13 1994
  20. ***************
  21. *** 1,4 ****
  22. ! /*  quintus.pl,v 1.7 1994/03/02 14:32:30 jan Exp
  23.   
  24.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  25.       jan@swi.psy.uva.nl
  26. --- 1,4 ----
  27. ! /*  quintus.pl,v 1.8 1994/03/21 16:46:13 jan Exp
  28.   
  29.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  30.       jan@swi.psy.uva.nl
  31. ***************
  32. *** 28,34 ****
  33. --- 28,36 ----
  34.       , otherwise/0
  35.       , (initialization)/1
  36.       , absolute_file_name/3
  37. +     , prolog_load_context/2
  38.       , numbervars/3
  39. +     , statistics/2
  40.       ]).
  41.   
  42.           /********************************
  43. ***************
  44. *** 79,84 ****
  45. --- 81,108 ----
  46.       concat(Base, Ext, Name).
  47.   
  48.   
  49. + %    prolog_load_context(+Key, -Value)
  50. + %
  51. + %    Provides context information for term_expansion and directives.
  52. + %    Note that only the line-number info is valid for the
  53. + %    '$stream_position'
  54. + 
  55. + :- module_transparent
  56. +     prolog_load_context/2.
  57. + 
  58. + prolog_load_context(module, M) :-
  59. +     context_module(M).
  60. + prolog_load_context(file, F) :-
  61. +     source_location(F, _).
  62. + prolog_load_context(stream, S) :-
  63. +     current_input(S).
  64. + prolog_load_context(directory, D) :-
  65. +     source_location(F, _),
  66. +     '$file_dir_name'(F, D).
  67. + prolog_load_context(term_position, '$stream_position'(0,L,0,0,0)) :-
  68. +     source_location(_, L).
  69. + 
  70. + 
  71.           /********************************
  72.           *        META PREDICATES        *
  73.           *********************************/
  74. ***************
  75. *** 141,146 ****
  76. --- 165,198 ----
  77.   
  78.   random(Min, Max, Value) :-
  79.       Value is Min + random(Max).
  80. + 
  81. +          /*******************************
  82. +          *        STATISTICS        *
  83. +          *******************************/
  84. + 
  85. + :- recorda('$runtime', 0, _).
  86. + 
  87. + statistics(runtime, [Total, New]) :- !,
  88. +     system:statistics(cputime, Time),
  89. +     Total is integer(Time * 1000),
  90. +     recorded('$runtime', Old, Ref),
  91. +     New is Total - Old,
  92. +     erase(Ref),
  93. +     recorda('$runtime', Total, _).
  94. + statistics(program, [InUse, _Free]) :- !,
  95. +     system:statistics(heapused, InUse).
  96. + statistics(heap, Stat) :- !,
  97. +     statistics(program, Stat).
  98. + statistics(global_stack, [InUse, Free]) :- !,
  99. +     system:statistics(globalused, InUse),
  100. +     system:statistics(globallimit, Limit),
  101. +     Free is Limit - InUse.
  102. + statistics(local_stack, [InUse, Free]) :- !,
  103. +     system:statistics(localused, InUse),
  104. +     system:statistics(locallimit, Limit),
  105. +     Free is Limit - InUse.
  106. + statistics(trail, [InUse]) :- !,
  107. +     system:statistics(trailused, InUse).
  108.   
  109.   
  110.           /********************************
  111. diff -c -r +new-file pl/src/md-hp.h pl/src/md-hp.h
  112. *** pl/src/md-hp.h    Mon Dec  6 18:00:51 1993
  113. --- pl/src/md-hp.h    Mon Mar 21 17:46:38 1994
  114. ***************
  115. *** 1,4 ****
  116. ! /*  md-hp.h,v 1.18 1993/12/06 17:00:51 jan Exp
  117.   
  118.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  119.       See ../LICENCE to find out about your rights.
  120. --- 1,4 ----
  121. ! /*  md-hp.h,v 1.19 1994/03/21 16:46:38 jan Exp
  122.   
  123.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  124.       See ../LICENCE to find out about your rights.
  125. ***************
  126. *** 43,48 ****
  127. --- 43,51 ----
  128.       library function vsprintf().
  129.       He successfully compiled on a hp9000s700 running hpux 8.07.
  130.       The resulting binary runs on both machines.
  131. + 
  132. + Version 1.8.10 includes some patches by  Dave   Sherratt  for  the HP cc
  133. + compiler.
  134.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
  135.   
  136.   #define MACHINE            "hp"
  137. ***************
  138. *** 61,67 ****
  139.   #define M_CFLAGS        
  140.   #else                    /* Use HP-UX cc */
  141.   #define M_CC            cc
  142. ! #define M_OPTIMIZE        +O1 +Obb650 /* In HP-UX 8.07, can use +O3 */
  143.   #define M_LDFLAGS        -O -Wl,-a archive
  144.   #define M_CFLAGS        -Aa -D_HPUX_SOURCE -Dunix -Dhpux -I/usr/local/include -I/usr/local/include/readline
  145.   #endif
  146. --- 64,70 ----
  147.   #define M_CFLAGS        
  148.   #else                    /* Use HP-UX cc */
  149.   #define M_CC            cc
  150. ! #define M_OPTIMIZE        +O1 +Obb700 /* In HP-UX 8.07, can use +O3 */
  151.   #define M_LDFLAGS        -O -Wl,-a archive
  152.   #define M_CFLAGS        -Aa -D_HPUX_SOURCE -Dunix -Dhpux -I/usr/local/include -I/usr/local/include/readline
  153.   #endif
  154. diff -c -r +new-file pl/src/md-linux.h pl/src/md-linux.h
  155. *** pl/src/md-linux.h    Wed Mar  2 15:32:50 1994
  156. --- pl/src/md-linux.h    Mon Mar 21 17:46:40 1994
  157. ***************
  158. *** 1,4 ****
  159. ! /*  md-linux.h,v 1.19 1994/03/02 14:32:50 jan Exp
  160.   
  161.       Copyright (c) 1992 Jan Wielemaker/Pieter Olivier. All rights reserved.
  162.       See ../LICENCE to find out about your rights.
  163. --- 1,4 ----
  164. ! /*  md-linux.h,v 1.20 1994/03/21 16:46:40 jan Exp
  165.   
  166.       Copyright (c) 1992 Jan Wielemaker/Pieter Olivier. All rights reserved.
  167.       See ../LICENCE to find out about your rights.
  168. ***************
  169. *** 33,38 ****
  170. --- 33,46 ----
  171.       results in multiple symbol declaration when SWI-Prolog is linked.
  172.       As a temporary fix remove /usr/lib/libtermcap.sa while linking
  173.       SWI-Prolog.
  174. + 
  175. + Thu Mar 10 22:14:20 1994
  176. +     Updated version 1.8.9. The stdio file structure elements were
  177. +     changed with libc 4.5.8 and above. The linux stdio now uses the
  178. +     libio structures. The old (and new) versions still don't work
  179. +     the way RESET_STDIN is meant to work. There seems to be no portable
  180. +     way to handle flushing all to-be-input characters when doing a save/1.
  181. +     Kayvan Sylvan (kayvan@Sylvan.COM) also (kayvan@Quintus.COM).
  182.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
  183.   
  184.   #define M_CC            gcc
  185. ***************
  186. *** 39,45 ****
  187.   #define M_OPTIMIZE            -O2
  188.   /*#define M_OPTIMIZE        -g*/
  189.   #define M_LDFLAGS        -static
  190. ! #define M_CFLAGS        -ansi -pedantic -Wall -funsigned-char
  191.   #define M_LIBS            -lm -ltermcap -lreadline
  192.   
  193.               /* compiler */
  194. --- 47,54 ----
  195.   #define M_OPTIMIZE            -O2
  196.   /*#define M_OPTIMIZE        -g*/
  197.   #define M_LDFLAGS        -static
  198. ! /*#define M_CFLAGS        -ansi -pedantic -Wall -funsigned-char*/
  199. ! #define M_CFLAGS        -Wall -funsigned-char
  200.   #define M_LIBS            -lm -ltermcap -lreadline
  201.   
  202.               /* compiler */
  203. ***************
  204. *** 73,78 ****
  205. --- 82,93 ----
  206.   #define DIR_INCLUDE2        <dirent.h>
  207.   #define TERMIO_INCLUDE        <termio.h>
  208.   #define O_GETCWD        1
  209. + 
  210. + /* This is for the newer libc (4.5.8+) */
  211. + #ifdef _STDIO_USES_IOSTREAM
  212. + #define _gptr _IO_read_ptr
  213. + #define _egptr _IO_read_end
  214. + #endif
  215.   
  216.   #include <linux/limits.h>
  217.   
  218. diff -c -r +new-file pl/src/md-sgi.h pl/src/md-sgi.h
  219. *** pl/src/md-sgi.h    Wed Mar  2 15:32:52 1994
  220. --- pl/src/md-sgi.h    Mon Mar 21 17:46:41 1994
  221. ***************
  222. *** 1,4 ****
  223. ! /*  md-sgi.h,v 1.6 1994/03/02 14:32:52 jan Exp
  224.   
  225.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  226.       See ../LICENCE to find out about your rights.
  227. --- 1,4 ----
  228. ! /*  md-sgi.h,v 1.7 1994/03/21 16:46:41 jan Exp
  229.   
  230.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  231.       See ../LICENCE to find out about your rights.
  232. ***************
  233. *** 13,24 ****
  234.   It appears `O_FOREIGN 1' gives problems on some SGI archiectures. It you
  235.   are not a C-hacker change this into O_FOREIGN 0. Otherwise you might
  236.   want to start debugging.
  237.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
  238.   
  239.   #define M_CC            gcc
  240.   #define M_OPTIMIZE        -O2
  241.   #define M_LDFLAGS        
  242. ! #define M_CFLAGS
  243.   #define M_LIBS            -lm -ltermcap
  244.   
  245.   
  246. --- 13,26 ----
  247.   It appears `O_FOREIGN 1' gives problems on some SGI archiectures. It you
  248.   are not a C-hacker change this into O_FOREIGN 0. Otherwise you might
  249.   want to start debugging.
  250. + 
  251. + Added -DANSI -D_BSD_SIGNALS after report from Fergus Henderson
  252.   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
  253.   
  254.   #define M_CC            gcc
  255.   #define M_OPTIMIZE        -O2
  256.   #define M_LDFLAGS        
  257. ! #define M_CFLAGS        -DANSI -D_BSD_SIGNALS
  258.   #define M_LIBS            -lm -ltermcap
  259.   
  260.   
  261. diff -c -r +new-file pl/src/pl-alloc.c pl/src/pl-alloc.c
  262. *** pl/src/pl-alloc.c    Wed Mar  2 15:32:54 1994
  263. --- pl/src/pl-alloc.c    Mon Mar 21 17:46:42 1994
  264. ***************
  265. *** 1,4 ****
  266. ! /*  pl-alloc.c,v 1.12 1994/03/02 14:32:54 jan Exp
  267.   
  268.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  269.       See ../LICENCE to find out about your rights.
  270. --- 1,4 ----
  271. ! /*  pl-alloc.c,v 1.13 1994/03/21 16:46:42 jan Exp
  272.   
  273.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  274.       See ../LICENCE to find out about your rights.
  275. ***************
  276. *** 93,99 ****
  277.   
  278.     n = ALLOCROUND(n);
  279.     statistics.heap -= n;
  280. !   DEBUG(9, printf("freed %ld bytes at %ld\n", n, (unsigned long)p));
  281.   
  282.     if (n <= ALLOCFAST)
  283.     { n /= sizeof(align_type);
  284. --- 93,100 ----
  285.   
  286.     n = ALLOCROUND(n);
  287.     statistics.heap -= n;
  288. !   DEBUG(9, printf("freed %ld bytes at %ld\n",
  289. !           (unsigned long)n, (unsigned long)p));
  290.   
  291.     if (n <= ALLOCFAST)
  292.     { n /= sizeof(align_type);
  293. diff -c -r +new-file pl/src/pl-file.c pl/src/pl-file.c
  294. *** pl/src/pl-file.c    Wed Mar  2 15:33:04 1994
  295. --- pl/src/pl-file.c    Mon Mar 21 17:46:43 1994
  296. ***************
  297. *** 1,4 ****
  298. ! /*  pl-file.c,v 1.20 1994/03/02 14:33:04 jan Exp
  299.   
  300.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  301.       See ../LICENCE to find out about your rights.
  302. --- 1,4 ----
  303. ! /*  pl-file.c,v 1.21 1994/03/21 16:46:43 jan Exp
  304.   
  305.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  306.       See ../LICENCE to find out about your rights.
  307. ***************
  308. *** 760,766 ****
  309. --- 760,770 ----
  310.     struct timeval t, *to;
  311.     real time;
  312.     int n, max = 0;
  313. + #if hpux
  314. +   extern int select(size_t, int *, int *, int *, const struct timeval *);
  315. + #else
  316.     extern int select(int, fd_set *, fd_set *, fd_set *, struct timeval *);
  317. + #endif
  318.   
  319.     FD_ZERO(&fds);
  320.     while( isList(*streams) )
  321. diff -c -r +new-file pl/src/pl-itf.h pl/src/pl-itf.h
  322. *** pl/src/pl-itf.h    Wed Mar  2 15:33:12 1994
  323. --- pl/src/pl-itf.h    Mon Mar 21 17:46:44 1994
  324. ***************
  325. *** 1,4 ****
  326. ! /*  pl-itf.h,v 1.40 1994/03/02 14:33:12 jan Exp
  327.   
  328.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  329.       See ../LICENCE to find out about your rights.
  330. --- 1,4 ----
  331. ! /*  pl-itf.h,v 1.41 1994/03/21 16:46:44 jan Exp
  332.   
  333.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  334.       See ../LICENCE to find out about your rights.
  335. ***************
  336. *** 11,17 ****
  337.   #define PL_INCLUDED
  338.   
  339.   #ifndef PLVERSION
  340. ! #define PLVERSION "1.8.9 March 1994"
  341.   #endif
  342.   
  343.   #if __GNUC__ && !__STRICT_ANSI__
  344. --- 11,17 ----
  345.   #define PL_INCLUDED
  346.   
  347.   #ifndef PLVERSION
  348. ! #define PLVERSION "1.8.10 March 1994"
  349.   #endif
  350.   
  351.   #if __GNUC__ && !__STRICT_ANSI__
  352. diff -c -r +new-file pl/src/pl-os.c pl/src/pl-os.c
  353. *** pl/src/pl-os.c    Wed Mar  2 17:50:44 1994
  354. --- pl/src/pl-os.c    Mon Mar 21 17:49:36 1994
  355. ***************
  356. *** 1,4 ****
  357. ! /*  pl-os.c,v 1.42 1994/03/02 16:50:44 jan Exp
  358.   
  359.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  360.       See ../LICENCE to find out about your rights.
  361. --- 1,4 ----
  362. ! /*  pl-os.c,v 1.44 1994/03/21 16:49:36 jan Exp
  363.   
  364.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  365.       See ../LICENCE to find out about your rights.
  366. ***************
  367. *** 16,21 ****
  368. --- 16,24 ----
  369.   #if OS2 && EMX
  370.   #include <os2.h>                /* this has to appear before pl-incl.h */
  371.   #endif
  372. + #ifdef linux
  373. + #include <stdio.h>
  374. + #endif
  375.   #include "pl-incl.h"
  376.   #include "pl-ctype.h"
  377.   #include "pl-itf.h"
  378. ***************
  379. *** 1385,1391 ****
  380.     }
  381.     
  382.     strcpy(path, CWDdir);
  383. !   strcpy(&path[CWDlen], file);
  384.     if ( strchr(file, '.') || strchr(file, '/') )
  385.       return canonisePath(path);
  386.     else
  387. --- 1388,1395 ----
  388.     }
  389.     
  390.     strcpy(path, CWDdir);
  391. !   if ( file[0] != EOS )
  392. !     strcpy(&path[CWDlen], file);
  393.     if ( strchr(file, '.') || strchr(file, '/') )
  394.       return canonisePath(path);
  395.     else
  396. ***************
  397. *** 1617,1622 ****
  398. --- 1621,1643 ----
  399.   
  400.   #define savestring(x) strcpy(xmalloc(1 + strlen(x)), (x))
  401.   
  402. + static Char
  403. + GetRawChar(void)
  404. + { unsigned char chr;
  405. + 
  406. +   if ( PL_dispatch_events )
  407. +   { while((*PL_dispatch_events)() != PL_DISPATCH_INPUT)
  408. +       ;
  409. +   }
  410. + 
  411. +   if (read(0, &chr, 1) == 0)
  412. +     return EOF;
  413. +   else
  414. +     return chr;
  415. + }
  416. + 
  417. + 
  418. + 
  419.   Char
  420.   GetChar(void)
  421.   { static char *line;            /* read line */
  422. ***************
  423. *** 1626,1648 ****
  424.     Char c;
  425.   
  426.     if ( ttymode == TTY_RAW )
  427. !   { if ( PL_dispatch_events )
  428. !     { for(;;)
  429. !       { if ( (*PL_dispatch_events)() == PL_DISPATCH_INPUT )
  430. !     { char chr;
  431. ! 
  432. !       if (read(0, &chr, 1) == 0)
  433. !         c = EOF;
  434. !       else
  435. !         c = (Char) chr;
  436. !       break;
  437. !     }
  438. !       }
  439. !     } else
  440. !     { char chr;                /* don't use getchar(); I/O buffer */
  441. !                     /* might not be empty after save() */
  442. !       c = (read(0, &chr, 1) == 0 ? EOF : chr);
  443.       }
  444.     } else
  445.     { if ( !line )
  446.       { ttybuf buf;
  447. --- 1647,1667 ----
  448.     Char c;
  449.   
  450.     if ( ttymode == TTY_RAW )
  451. !   { c = GetRawChar();
  452. !   } else if ( status.notty )
  453. !   { if ( !line )
  454. !     { extern int Output;
  455. !       int old = Output;
  456. !       Output = 1;
  457. !       Putf("%s", PrologPrompt());
  458. !       pl_flush();
  459. !       Output = old;
  460. ! 
  461. !       line = "ok";
  462.       }
  463. + 
  464. +     if ( (c=GetRawChar()) == '\n' )
  465. +       line = NULL;
  466.     } else
  467.     { if ( !line )
  468.       { ttybuf buf;
  469. ***************
  470. *** 1682,1687 ****
  471. --- 1701,1707 ----
  472.   
  473.     source_line_no   = sln;
  474.     source_file_name = sfn;
  475. + 
  476.     return c;
  477.   }
  478.   
  479. diff -c -r +new-file pl/src/pl-read.c pl/src/pl-read.c
  480. *** pl/src/pl-read.c    Wed Mar  2 15:33:23 1994
  481. --- pl/src/pl-read.c    Mon Mar 21 17:46:46 1994
  482. ***************
  483. *** 1,4 ****
  484. ! /*  pl-read.c,v 1.15 1994/03/02 14:33:23 jan Exp
  485.   
  486.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  487.       See ../LICENCE to find out about your rights.
  488. --- 1,4 ----
  489. ! /*  pl-read.c,v 1.16 1994/03/21 16:46:46 jan Exp
  490.   
  491.       Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  492.       See ../LICENCE to find out about your rights.
  493. ***************
  494. *** 97,103 ****
  495.     char *here;            /* current position in read buffer */
  496.     int   stream;            /* stream we are reading from */
  497.     FILE *fd;            /* file descriptor we are reading from */
  498. -   bool    doExtend;        /* extension mode on? */
  499.   } rb;
  500.   
  501.   #if O_PCE
  502. --- 97,102 ----
  503. ***************
  504. *** 125,131 ****
  505.     rb_stack[read_nesting++] = rb;
  506.     rb = rb_stack[read_nesting];
  507.   #endif /* O_PCE */
  508. -   rb.doExtend = (Input == 0 && status.notty == FALSE);
  509.     rb.stream = Input;
  510.     rb.fd = checkInput(rb.stream);
  511.     source_file_name = currentStreamName();
  512. --- 124,129 ----
  513. diff -c -r +new-file pl/src/sun-types.h pl/src/sun-types.h
  514. *** pl/src/sun-types.h
  515. --- pl/src/sun-types.h    Mon Mar 21 17:46:47 1994
  516. ***************
  517. *** 0 ****
  518. --- 1,43 ----
  519. + /*  sun-types.h,v 1.1 1994/03/21 16:46:47 jan Exp
  520. + 
  521. +     Part of XPCE
  522. +     Designed and implemented by Anjo Anjewierden and Jan Wielemaker
  523. +     E-mail: jan@swi.psy.uva.nl
  524. + 
  525. +     Copyright (C) 1994 University of Amsterdam. All rights reserved.
  526. + */
  527. + 
  528. + /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  529. + Missing sun type declarations to allow gcc -Wall
  530. + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
  531. + 
  532. + extern int sscanf (const char *, const char *, ...);
  533. + extern int fscanf (FILE *, const char *, ...);
  534. + extern int printf (const char *, ...);
  535. + extern int _filbuf (FILE *);
  536. + extern int _flsbuf (unsigned int, FILE *);
  537. + extern long time (long *);
  538. + extern int gethostname(char *name, int namelen);
  539. + extern int fprintf (FILE *, const char *, ...);
  540. + extern int fflush (FILE *);
  541. + extern long int strtol (const char *, char **, int);
  542. + extern int vprintf (const char *, char * );
  543. + extern int vsprintf (char *, const char *, char * );
  544. + extern int vfprintf (FILE *, const char *, char * );
  545. + extern long unsigned int fread (void *, long unsigned int,
  546. +                 long unsigned int, FILE *);
  547. + extern long unsigned int fwrite (const void *, long unsigned int,
  548. +                  long unsigned int, FILE *);
  549. + extern int ungetc (int, FILE *);
  550. + extern int getw(FILE *stream);
  551. + extern int putw(int data, FILE *stream);
  552. + extern int pclose(FILE *stream);
  553. + extern int fclose(FILE *stream);
  554. + extern void bcopy(void *b1, void *b2, int length);
  555. + extern int fseek (FILE *, long int, int);
  556. + extern char *getwd(char *pathname);
  557. + extern int ioctl(int fd, int request, void *arg);
  558. + extern void bzero(void *b, int length);
  559. + extern int brk(void *addr);
  560. + extern void *sbrk(int incr);
  561. + extern int system (const char *);
  562.